home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 098 / eds.arc / EDSBOBO.LSP < prev    next >
Encoding:
Text File  |  1980-01-01  |  957 b   |  27 lines
  1. ;This function draws a rectangle given
  2. ;a starting point and x,y offsets.
  3. ;
  4. ;Function name "EDSBOBO.LSP" - Execution command "BOBO"
  5. ;
  6. ;Written by Christopher Conrad and Steve Brown
  7. ;
  8. ;
  9. ;
  10. (defun C:BOBO (/ PNT1 PNT2 PNT3 PNT4 ORIGIN OFFSET)
  11.     (GRAPHSCR)
  12.     (TERPRI)
  13.     (COMMAND "OSNAP" "INT")
  14.     (SETQ ORIGIN (GETPOINT "INDICATE ORIGIN OF OFFSET : "))
  15.     (COMMAND "OSNAP" "OFF")
  16.     (SETQ ORX (CAR ORIGIN)) (SETQ ORY (CADR ORIGIN))
  17.     (SETQ OFFSET (GETPOINT "KEY-IN OFFSETS FOR START POINT : "))
  18.     (SETQ OFFX (CAR OFFSET)) (SETQ OFFY (CADR OFFSET))
  19.     (SETQ PNT1X (+ ORX OFFX)) (SETQ PNT1Y (+ ORY OFFY))
  20.     (SETQ PNT1 (LIST PNT1X PNT1Y)) (TERPRI)
  21.     (SETQ PNT3 (GETPOINT "KEY-IN OFFSETS : ")) (TERPRI)
  22.     (SETQ PNT2 (LIST (+ (CAR PNT1) (CAR PNT3)) (CADR PNT1)))
  23.     (SETQ PNT4 (LIST (CAR PNT1) (+ (CADR PNT1) (CADR PNT3))))
  24.     (SETQ PNT3 (LIST (CAR PNT2) (CADR PNT4)))
  25.     (COMMAND "LINE" PNT1 PNT2 PNT3 PNT4 "C")
  26.  
  27.   )